## Waffle plot for the descriptive statistics ##
library(waffle)
protest <- c("Would never do"=807,"Might do"=851, "Have done it before"=412)
postmat <- c("Materialist"=724,"Mixed values"=969,"Post-materialist"=365)
dissat <- c("1-2"=81,"3-4"=483,"5-6"=756,"7-8"=472,"9-10"=268)

## Figure 4a ##
waffle(protest/80, rows = 5, colors = c("#DFE0E2", "#888D96", "#0A0B0B")) +
  theme(legend.text = element_text(size=35),
        legend.key.size = unit(2, "cm"))

## Figure 4b ##
waffle(postmat/80, rows = 5, colors = c("#DFE0E2", "#888D96", "#0A0B0B")) +
  theme(legend.text = element_text(size=35),
        legend.key.size = unit(2, "cm"))

## Figure 4c ##
waffle(dissat/80, rows = 5, colors = c("#DFE0E2", "#B3B6BC", "#888D96", "#4E5656", "#0A0B0B")) +
  theme(legend.text = element_text(size=35),
        legend.key.size = unit(2, "cm"))
